unit ufrmmain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ActnList, ComCtrls, ButtonPanel, StdCtrls, ExtCtrls, Buttons, ExpandPanels;

type

  { TfrmMain }

  TfrmMain = class(TForm)
    actExit: TAction;
    actAbout: TAction;
    actEditTopics: TAction;
    AL: TActionList;
    AP: TApplicationProperties;
    BitBtn1: TBitBtn;
    ExpandPanels: TExpandPanels;
    miAbout: TMenuItem;
    miHelp: TMenuItem;
    miExit: TMenuItem;
    miFiles: TMenuItem;
    MM: TMainMenu;
    MyRollOut1: TMyRollOut;
    MyRollOut2: TMyRollOut;
    MyRollOut3: TMyRollOut;
    Panel1: TPanel;
    PC: TPageControl;
    pnlLeft: TPanel;
    SB: TStatusBar;
    TreeView1: TTreeView;
    tsTopics: TTabSheet;
    TabSheet2: TTabSheet;
    procedure actEditTopicsExecute(Sender: TObject);
    procedure ALExecute(AAction: TBasicAction; var Handled: Boolean);
    procedure ExpandPanels2ArrangePanels(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure miHelpClick(Sender: TObject);
    procedure roMainButtonClick(Sender: TObject);
  private
    { private declarations }
    procedure InitMainForm;
  public
    { public declarations }
  end; 

var
  frmMain: TfrmMain;

implementation

{$R *.lfm}

{ TfrmMain }


//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.miHelpClick(Sender: TObject);
begin

end;

//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.ExpandPanels2ArrangePanels(Sender: TObject);
begin

end;

//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.ALExecute(AAction: TBasicAction; var Handled: Boolean);
begin

end;

//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.actEditTopicsExecute(Sender: TObject);
begin
  PC.ActivePage := tsTopics;
end;

//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.FormCreate(Sender: TObject);
begin
     InitMainForm;
end;

//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.roMainButtonClick(Sender: TObject);
begin

end;

//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------

procedure TfrmMain.InitMainForm;
begin
     // Configure Page control...
     PC.ShowTabs := false;

     // Connect Roulout panels to controler...
     ExpandPanels.AddPanel(MyRollOut1);
     ExpandPanels.AddPanel(MyRollOut2);
     ExpandPanels.AddPanel(MyRollOut3);
end;

end.

